Imports System.Data.SqlClient
Public Class frmChonThang

    Private Sub frmChonThang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = Now.Year - 10 To Now.Year + 2
            Me.cbxNam.Items.Add(i.ToString)
        Next
        Me.txtCty.Text = modKetNoi.aryConfig("CFG01")
        Me.txtDiaChi.Text = modKetNoi.aryConfig("CFG02")
        Me.cbxThang.Text = Now.Month.ToString()
        Me.cbxNam.Text = Now.Year.ToString()
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        modKetNoi.aryConfig("Thang") = Me.cbxThang.Text
        modKetNoi.aryConfig("Nam") = Me.cbxNam.Text
        modKetNoi.aryConfig("Locked") = checkIsLocked(cbxThang.Text, cbxNam.Text)
    End Sub

    
End Class